package JasPerl::JSTL::Fmt::ParseNumberTag;

use 5.010;
use strict;
use warnings;

use parent qw(JasPerl::TagExt::JspTag);

use JasPerl::JSTL::Core::Config qw(:fmt);
use JasPerl::JSTL::Fmt::NumberFormat;
use JasPerl::JSTL::Fmt::LocalizationContext;

use JasPerl::Util::Boolean;
use JasPerl::Util::Locale;
use JasPerl::Util::Number;

use JasPerl::PageContext qw(:scopes);

sub set_integer_only {
    $_[0]->{integer_only} = JasPerl::Util::Boolean->from($_[1]);
}

sub set_parse_locale {
    $_[0]->{parse_locale} = JasPerl::Util::Locale->from($_[1]);
}

sub set_pattern {
    $_[0]->{pattern} = $_[1];
}

sub set_scope {
    $_[0]->{scope} = JasPerl::PageContext->get_scope_by_name($_[1]);
}

sub set_type {
    $_[0]->{type} = $_[1];
}

sub set_value {
    $_[0]->{value} = $_[1];
}

sub set_var {
    $_[0]->{var} = $_[1];
}

sub do_tag {
    die "not implemented";
}

1;
